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A LORAN-C chart correlates radio signals transmitted from special shore transmitting stations to a ship's position. The DOT Transportation Systems 
Center in Massachusetts is assessing the usefulness of LORAN-C for on-land site location using the 4051 Graphic System as the experiment 
controller. 

A Recent Development in LORAN-C Data Acquisition, Aided 
By The 4051 

by Peter Mauro To perform this experiment, a data acquisition van has 

DOT/Transportation Systems Center been designed using the 4051 Graphic System as the 

Cambridge, MA experiment controller (Figure 1). 

The use of LORAN-C systems, or LOng RAnge Naviga- 
tion systems, has grown in the past decade as a valuable 
aid to maritime navigation, its users range from super- 
tankers to small fishing craft. Now the Transportation 
Systems Center of the Department of Transportation 
(DOT) is evaluating the usefulness of LORAN-C for on- 
land site location and registration, and for Automatic 
Vehicle Monitoring (AVM). This research is being 
sponsored by the DOTs Research and Special Programs 
Administration, to see if the LORAN-C maritime locator 
can be used to pinpoint, say, an accident location for 
emergency vehicles (among many other projected uses). 



In This Issue 



Auto Restart ROM Pack 5 

Editor's Note 5 

l/F Contest 6 

Library Program Updates 6 

Programming Tips 7 

BASIC Bits 12 

New Abstracts 12 

Library Addresses 16 




Fig. 1 Traversing the highways with their mobiie data acquisition van, 
which includes a 4051 Graphic System, the U.S. Department of 
Transportation is evaluating the use of LORAN-C signals for on- 
land site location. 



What is LORAN-C 

LORAN-C is a pulsed low-frequency hyperbolic radio- 
navigation system. It derives its high accuracy from time 
difference measurements between pulsed signals, and 
from the inherent stability of low-frequency propagation 
over seawater.lt has developed in recent years as a highly 
accurate maritime navigational aid. 

Hyperbolic navigation systems operate on the principle 
that the time difference between the arrival of signals 
from two secondary (slave) stations, observed at any 
point in their coverage area, is also a measure of the 
distance to each of the stations. The LORAN-C primary 
(master) station serves as a master time reference, 
eliminating the need for an on-board precision clock to 
measure time difference. All of the points that have the 
same observed difference in distance from a pair of 
stations defines a hyperbola, called a Line of Position 
(LOP). The intersection of two or more LOPs precisely 
defines the position of the LORAN-C receiver. 
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The accuracy of any hyperbolic navigation system 
depends on the observer's ability to measure the 
difference between the arrival time of two signals, and the 
observer's knowledge of the propagation conditions. Thi^ 
latter information allows the measured time differences to^ 
be converted to LOPs. 

The basic limitation on accuracy is knowledge of the 
velocity of radio wave propagation (about one foot per 
nanosecond). To achieve accuracies of ten to hundreds of 
feet, time measurements must be accurate to from ten to 
hundreds of nanoseconds. Also (and especially important 
to terrestrial uses), the propagation condition must also 
be reliably predictable to ten or hundreds of nanoseconds. 
Since the velocity of progagation will vary with seasonal 
changes in ground conductivity, considerable investiga- 
tion will be required before time delays can be reliably 
predicted for terrestrial use. 

Expanding Onto Land 

The expanding LORAN-C grid on both the East and 
West Coasts, along with the possible addition of a mid- 
continent chain, has made LORAN-C position location 
available to a larger user group than the maritime 
community it was originally designed to serve. In 
addition, new LORAN-C receivers with advanced 
microprocessor technology are smaller and lighter, and 
capable of improved operation in the difficult en- 
vironments found in large cities, near power lines. etc.I 
These factors have generated interest in a number of 
potential applications. 

One example of a potential use is in state traffic 
departments. Using LORAN-C, an accident site on a 
highway could be precisely identified to direct rescue 
vehicles. The same information could be used to ac- 
cumulate a data base for future traffic pattern studies. 
Police units could use LORAN-C coordinates to direct 
officers in rural areas. Conversely, the system could be 
used in Automatic Vehicle Monitoring, where an officer's 
location and status might be transmitted to a dispatch 
location in a high-crime area. Another example of a 
unique terrestrial application of LORAN-C is in popula- 
tion location information gathered by the Census Bureau 
in remote areas where no address is possible. 



All of the above examples depend on the reliable and 
repeatable precision of LORAN-C coordinate data, over 
both short and long periods of time (minutes or years). 
The Department of Transportation experiments describ- 
ed here are designed to determine variations in terrestrial 
LORAN-C data. Long-term seasonal changes due to 
ground conductivity (fluctuating because of the moisture 
content) are being checked, along with short-term jitten 
from man-made and natural interference. The vanshown" 
in Figure 1 is a mobile data collection facility that can be 
driven along a roadway while recording LORAN-C 
coordinates, odometer-measured distance, and time, all 
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on tape as raw data. The on-board 4051 Graphic System 
then performs statistical analysis of the data while 
enroutc, enabling a quick look at experimental results 
before terminating a test run. 

The Experiment 

The experiment is designed to automatically collect data 
about the variation of LORAN-C coordinates with time, 
along a given highway. The route will be traversed many 
times during the course of the experiments; about 5000 
data points are collected during each run. Manual data 
recording would be tedious and error-prone. Hence, a 
method of collection, recording, and reduction under 
computer control was designed, using the 4051 as the 
controller. And the 405 Ts graphic display permits easy 
comparison of data from multiple runs over the same 
route. Data must be collected over a period of time to 
verify a predictable drift in coordinates due to seasonal 
effects. Suitable correction can then be made for the 
seasonal effects. 

The Equipment 

Figure 2 is a block diagram of the equipment configura- 
tion; the actual equipment is shown within the van in 
Figure 3. There the 4051 can be seen as the system's 
automatic controller, operating from a "real-time" 
BASIC programjstored in 30K of RAM. Data sampling 
occurs at a four-second repetition rate, on command from 
a LORAN-C receiver. All data is loaded in parallel to a 
shift register that can accommodate all sources 
simultaneously, assuring accurate tracking of distance, 
time, and LORAN-C coordinates. 
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Fig. 2 LORAN-C experiment configuration. 

The equipment operates in the following manner: during 
the four-second interval between sample commands, the 
data is formatted into eight-bit bytes and transmitted over 
the GP1B to the 4051. The 4051 then processes and 
records the data before the next sample command; 
recording on magnetic tape allows further analysis back 
in the lab. The software allows the operator to control 
navigation system mode, data gathering memory, inspec- 
tion, and other system functions, all through User 
Definable Keys. This makes the complex, advanced test 
system simple and easy to use. 




Fig. 3 The 4051 Graphic System controls data acquisition in the DOT 
van. LORAN-C receivers acquire the signals. 

Data Reduction and Presentation 

The Northeast Coast chain has four operational secon- 
dary stations; they're located at Caribou, Maine; 
Carolina Beach, North Carolina; Dana. Indiana; and 
Nantucket. Massachusetts. The master station for this 
chain is located at Seneca. New York. The two secon- 
daries whose LOP's cross the Boston area at nearly right 
angles are Caribou and Carolina Beach. The Nantucket 
transmitter provides an exceptionally strong signal, but 
those with optimum crossing angles are preferred. 

The data shown in Figure 4 is displayed in tabular form 
on the 405 1 Graphic System screen. This allows the 
results to be monitored during the progress of the 
experiment. 
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Fig. 4 LORAN Experiment Data. 

In the table, the first two columns are the time difference 
measurements, in microseconds, between the master 
station and secondary A (TDA) and secondary B (TDB). 
Column three is the odometer-measured distance to one- 
hundredth of a mile. (Note that a stationary vehicle 



produces a reading of zero.) Column four is the odometer 
readout in feet; it appears on the data printout and on the 
odometer electronic display simultaneously. 

Columns labled Alarm 1 and 2 are status indicators for 
the LORAN-C receiver. A number is displayed for every 
possible operating mode of the receiver; Alarm 1 is 
associated with TDA and Alarm 2 with TDB, The 
indicator number may range from one to 128 to show the 
status of the transmitter or receiver equipment. In the 
example shown, the number 4 indicates that both 
transmitter and receiver are working correctly. 

Preliminary Results 

A pilot demonstration was conducted to 1) gain an 
understanding of the concept of relating accident 
locations to highway characteristics; 2) verify the 
procedures for linking accident locations to highway 
characteristics using LORAN-C; and 3) demonstrate the 
usefulness of LORAN-C coordinates for location iden- 
tification. 

This pilot experiment was conducted in Columbia 
County on Routes 23 and 9 near the town of Hudson. 
New York, during the fall of 1977. Data was recorded 
manually and reduced manually at a plotting facility of 
the Transportation Systems Center. The pseudo road 
map in Figure 5 was generated there. The map ap- 
proximates the actual highway along which the data was 
collected, but the jitter in the lines clearly indicates that 
some form of smoothing is required. The scale is approx- 
imately one nanosecond per foot, which is 50,000 feet (9.4 
miles) between Lines of Position. 
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Fig. 5 LORAN-C Pilot Experiment- New York 

More Plans 

The results of the pilot experiment encouraged more- 
detailed investigation into terrestrial use of LORAN-C. 
The 4051-based system now in use makes the data 



gathered more immediately useful through real-time 
analysis and reduction. Real-time monitoring, along with 
graphically displaying key variables in navigation data, /" 
allows the test procedure to be modified on the spot, V. 
depending on the results observed. 

Figure 6 is an example of a pseudo map generated on the 
4051 while enroute on Highway 93 in the Boston area. For 
this experiment, the old East Coast LORAN-C stations 
were chosen (Dana, Indiana, and Nantucket, 
Massachusetts, with the master station located at North 
Carolina). These secondaries give a less-t ha n- perfect right 
angle crossing, but are adequate for the initial trial. As 
this experiment progressed, it quickly became clear where 
LORAN-C reception was difficult. Scale on this map is 5 
microseconds between grid lines, or approximately 5,000 

feet. 
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Fig. 6 LORAN Experiment- Boston Area. 

The 4051 software support programs enable complete 
statistical analysis of the data collected at a fixed location, 
including mean, variance, standard deviation, skewness, 
kurtosis, etc. But the data collected in this experiment is 
deliberately not stationary, and some form of smoothing 
is required. 

Programs are currently being investigated for the mobile 
data, where samples are averaged and subtracted from a 
straight line, to display a smoothed curve that ap- 
proximates the highway as shown on a road map. Hard 
copies of the pseudo road maps generated for each run 
will show shifts in the LORAN-C grid when superim- 
posed on a light table. Tabular results will enable a 
correction factor to be developed for seasonal changes, if 
necessary. 

Many other potential uses for LORAN-C are also being^ 
considered for investigation; this research will be the basi^ 
for future developments. And at the heart of the data 
gathering and evaluation process is the 4051 Graphic 
System, making the system easy to use and, through 
immediate graphic feedback, quick to evaluate. Jg£) 



ROM Pack Automatically Restarts 4051 Program 
After Temporary Power Interrupt 



by Patricia Kelley 
TEKniques Staff 

The National Research Council of Canada at Ottawa has 
engineered a circuit which automatically restarts their 
405 1 -based data acquisition system after a power failure. 
W. Budde, L. Carson and P. Grant, Optics Section of the 
Division of Physics, documented the procedure and sent 
it in to TEKniques. Unfortunately, their design and build 
work wasn t necessary; Tektronix has had an Auto-Start 
ROM Pack to perform just such a function since 1976. 
When we told them, they stated: "We did some minor 
crying .... The Auto-Start ROM Pack was indeed not 
known and some more publicity is advisable." 

The National Research Council uses the 4051 to control a 
complex data acquisition system for the fully automatic 
recording of solar radiation and weather data. The 
system, which incorporates a scanner, digital voltmeter, 
counter, and various stepper motors, runs continuously 
without operator supervision. The loss of a few data 
values during a power failure was not a serious problem; 
the problem was beginning the data acquisition program 



once again when power was restored, particularly if the 
failure occurred early during a weekend or even early at 
night. 

The AUTO-START ROM Pack, part number CM 020- 
0198-00, is a custom modification designed for such cir- 
cumstances as the Council described. It allows the 405 1 to 
execute an inserted program tape when power is first 
applied; it isn't necessary to press the AUTO LOAD key 
when the ROM Pack is installed. Each time power is 
discontinued then re-applied to the 4051, the system will 
rewind the magnetic tape, locate the first program file, 
load the file, and execute the program. 



Perhaps this ROM Pack can help you overcome a power 
failure-restart problem. If you would like more informa- 
tion, contact your local Tektronix Sales Engineer and ask 
about custom mod Rom Pack, CM 020-0189-00, for the 
4051. Jg) 
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Editor's Note 

New Members Wanted 

WeVe looking for 4050 Series System users who are not 
yet members of the Applications Library. There are 
membership cards included with this issue, which you can 
pass on to your colleagues who might be interested. And 
don t forget to tell them, ITS FREE! 

Back Issues 

As a reminder, we continue to keep back issues of 
TEKniques available for those who haven t received them 
or have misplaced them. Some of the earlier issues may be 
reproductions rather than the original printings. Just 
drop us a note if you need any back issues. 

Library Catalogs are Available 

The new Applications Library catalog is available for the 
asking, too. It not only contains lots of programs, with 
descriptions of their capabilities, but gives you an idea of 
the versatility of the 4050 Series Graphic Computing 
System. Just let us know if you need a copy. 

Remember our Questionnaire? 

In TEKniques Vol. 3 No. 5 we included a questionnaire 



about TEKniques and the applications library. If you 
haven't replied, please take a few minutes and let us hear 
from you. We'd like to know your thoughts, good or bad. 

New Contest 

This issue features a new 4050 Series Applications 
Library contest, described in detail elsewhere in this issue. 
There's lots of time to enter, so check it out. 

EMC Customers Take Note 

There's a new address for EMC customers to write to the 
Applications Library. Note the address block at the back 
of this issue. 

Programming Tip Exchange 

Send in your programming tip. Anyone of the following 
4051 Applications Library programs* will be yours when 
it's published. Simply jot down a brief description of the 
function, the code, and your choice of program. Mail it to 
the 4050 Series Applications Library serving you; Library 
addresses are listed at the back of each TEKniques issue. 



51/00-0101/0 
51/00-0702/0 
51/00-0715/0 
51/00-1401/0 
51/00-1402/0 
51/00-5401/0 

♦Documentation and listing only. 
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51/00-5503/0 
51/00-7002/0 
51/00-8006/0 
51/00-9505/0 
51/00-9511/0 
51/00-9521/0 



Interfacing is Contest Theme 

Data acquisition or instrument control through the 4050 
Graphic System is the theme of the 4050 Series 
Applications Library contest. Awards will be made in 
three categories. 

Rules 

• The application must include a 4050 Series System 

interfaced to at least one instrument. This instrument 
must be in addition to any 4050 Series peripheral*, 
although the latter may be part of the configuration. 

• The program must be submitted on tape or disc and 

include the documentation, completed and signed 
Submittal Form, and an Order Form with your 
exchange selection. 

• More than one application may be contributed. 

• An application may only be entered into one category. 

Categories 

The categories are divided by interface. 

Category I — Application using the General Purpose 
interface Bus (G PI B) 

Category II — Application using the Option 1 Data 
Communications Interface (RS-232) 

Category III — Application using any other type of 
interface — commercially constructed or "home 
built/' 



Awards 

Awards will be given to three places in each category. 
Each winner will have his/ her choice of 4050 Series ROM 
Packs. PLOT 50 software, or Applications Library 
software, at catalog price, up to the award amount for 
his/her placing. 



1st Place 
2nd Place 
3rd Place 



Category 
I 

$750 
500 

375 



Category 
II 

$750 
500 

375 



Category 
III 

$750 
500 

375 



AH entrants will receive three programs in exchange for 
theirs. This exchange, of course, is in addition to any 
award that might be received. 

Deadline 

As we promised in the last issue of TEKniques, you 11 have 
lots of time to work on your program and its documenta- 
tion. The contest deadline is March 31, 1980. 

So, clean-up those programs, complete the documenta- 
tion, and send it in. If you need documentation guidelines *~ 
or any of the forms, send us a note: our address is shown \ 
under United States on page 16 Jgp 



*4050 Series peripherals include 4610, 4631, 4641, 4642, 4662, 4663, 
4907, 4924 and 4956. 



Updates 

Recordkeep II 



Abstract 51/07-6108/0 described RECORDK.EEP M in 
Vol. 3 No. 3 issue (May 1, 1979) of TEKniques. Those 
who received this program from the 4050 Series 
Applications Library prior to July 1 should check to see if 
the following line of code was added in OVERLAY 6 
(0V6): 



OLD CODE 
5430 H5*J1+C<H8, 1 )-LEH<K*>-16 

5448 L$=" Grand Total 



NEW CODE 
5439 H5=J1+C<H8, 1 >-LEN<K$>-16 

5432 DIM I$<H5+1) 

5448 L*= M Grand Total " 



Presentation AIDS— 51/00-9513/0 

Presentation Aids, a popular slide maker program in the 
4050 Series Applications Library, doesn't allow the user 
to stop and change pens during the slide making process. 
Two lines of code submitted by Hank Piatek, Tektronix, 
Inc., Wilsonville, halt program execution while you 
change pens. 

1005 INPUT Q$ 
1245 INPUT Q$ 

Once your new pen is in place (or if no change is desired), 
simply press RETURNand the program continues. Jg) 




Butterfly Sort Speeds Alpha String 
Sorting 

by Gary Neher 
Tektronix, Inc. 
Beaverton, OR 
and Dan Taylor 
Tektronix, Inc. 
Wilsonville, OR 

The approximate time to perform a bubble sort is 
proportional to N : (N = number oi items to be sorted). A 
butterfly sort takes roughly NlogN. a substantial time 
saving over the bubble sort. It also compares favorably 
with the "quicker" sort algorithm while using far less code. 
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TLIS To The 4642 Printer 

by Jerry Anderson 

Phillips Petroleum Co. 
Bartlesville, OK 

Although the 4642 Desktop Printer cannot process the 
4050 Series TLIS command, executing the following 
sequence will produce the same result. 



588 


REM T IS TAPE UNIT 


ADDRESS! 


595 


REM P IS PRINTER ADDRESS 


518 


T*33 




528 


P«41 




538 


FIND 8 




548 


PRINT ST, 9:8, 0,1 




559 


FOR 1=1 TO 1880 




568 


FIND @T:I 




578 


INPUT @t:a$ 




538 


B5=SEG(A$,35,5) 




598 


B=UAL<B*>*256 




608 


B$=STR<B> . 




618 


A*=REP<B$,35.5> 




628 


PRINT up:a$ 




638 


B$»SEG<A$,9,4> 




648 


IF B** U LAST" THEN 


G£d 


650 


NEXT I 




€6id 


PRINT £T, 8:9, 8,0 




670 


FIND 8 




688 


END 





Setting Up A Menu On The 4956 
Tablet 

by Ed Mitchell 
Tektronix, Inc. 
Wilsonville, OR 

When creating drawings, a menu on your 4956 Tablet 
allows you to select and move around predefined shapes 
anywhere on your plot. Commands may also be issued 
directly from the Tablet. 

First, design your menu. The example in Figure 1 
provides for a possible 24 commands and 24 objects. The 
layout is arbitrary; here the symbols are grouped in a 3- 
row 8-column block with the commands grouped in two 
rows of 12 columns. Keeping the blocks evenly spaced is 
essential so block detection can be made through a two- 
line algorithm. 
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Four parameters must be defined for the menu: the lower 
left and upper right menu locations, and the number of 
rows and columns. Since the menu location can be 
changed, its boundaries must be digitized. The following 
routine accomplishes this: 



"i 



BUTTON i CM 



1000 REM tttt SET MENU ARE3 **<* ^ nf . tjT 
Idle REM DIGITI2EL0WER LEFT AND UPPER RIuHT 

1039 Pp'lHT^LMOul'THE CURSOR TO THE LOWER LEFT 

1040 PPINT -OF THE ThBLET MENU AMD PRESS THE 'Z' 
1850 INPUT eU:H<P,U(l),2* 
lfl€0 IF Z$*"9" THEN 1059 

1 fl "* fi PRINT " T " 

1086 REM DEBOUNCE THE CURSOR TO ELIMINATE FALSE POINTS 

1090 input (?u:x,v,zi 

{}?§ ppjnt ;; njmoue E the 8 cSrsor to the upper right ofjhe »: 
ipo print "tablet menu and press the z' button' g . 

1130 INPUT eu:H<2VK2>.Z«- 

1140 IF 2$»"0 M THEN 230 

1159 REM DEBOUNCE THE CURSOR 

1160 INPUT i?U:X,Y,Z* 
1170 IF Z*<>"0" THEN 2€0 

1500 REM tttt CALCULATE BOUNDARIES * BLOCKS **** 
1510 H3=<t'H<2)-H<n>/8>tl2+H<n 
1520 ul=<U(2)-U(l))/5 
1530 Hl = ''H(2,'»-H(l>)/8 

1549 REM tttt EXIT tttt 

1550 RETURN 



When digitizing the boundarie s, set your Tablet con- 
troller to STREAM SWITCH mode. This allows the 
4050 System to continuously track the location of the 
cursor. After each menu coordinate is digitized, the 
routine ensures the pen or button has been pressed and 
released before continuing, a technique called "deboun- 
cing." (The mechanical bounce of the switch contacts may 
send out a pattern of unwanted "Z" commands which 
must be removed.) When working with the 4051 only one 
check of the Z parameter is required, but the 4051/4054 
sometimes require three or four "dummy'' inputs to 
ensure that all false points are cleared. 

Once the lower left and upper right coordinates of the 
menu are known, simple computations decode the points. 
However, the other two menu parameters, rows and 
columns, must be specified in your code as constants. For 
this example, 8 and 12 columns are specified in statement 
1510, 5 rows in statement 1520 and 8 columns in 
statement 1530. 



2996 

3989 

3019 

3929 

3938 

3848 

3850 

30b8 

3979 

3-388 

3099 

3109 

3110 

3399 

I 

I 

3499 

3418 

3429 

3439 

3580 

I 



nn tttt MENU SELECTION tttt 

IMPUT <?U'.X.Y,Zf 

IF Z**«0" THEN 3990 

*EM CHECK TO ENSURE LOCATION IS IN MENU AREA 

IF X-'HM) OR X>H3 OR Y'.UM> OR W2> THEN 3000 

REM. FIND LOCATION 

P«IMTaY-OU.V>-Ul> 

C«INKfX-HO>>'Hl> + t 

PEH BRANCH TO ROW 

GO TO P OF 3300.3480.3500,3690 

REM ROW i. TYPICAL 2-LINE 12-BLOCK ROW CODE 

GO TO C OF 4000, 4050, 4100, 4150, 4208, 4250,4300, 4339, 4409, 4458, 4' 

GO TO C-ll OF 4530 

REM ROW 2 

REM ROW 3. TYPICAL 3-LINE 8-BLOCK P0W CODE 

GO TO C OF 5090.5050,3100,5158.5208,5250,5300.5350 

REM IF PROGRAM FALLS THROUGH THEN CURSOR WAS OUTSIDE 3 BLOCKS 

GO TO 3899 

REM ROW 4 



3600 REM ROW 5 



Statement 3000 tracks the cursor location. Statement 
3010 checks to see if a switch was pressed; if so, statement 
3030 verifies the point is inside the menu boundaries. 
Statements 3050 and 3060 then calculate the row and 
column. 

The row "R" pointer range runs from through 5 since 
any point calculated in statement 3050 will fall in one of 
the rows. However, the column "C" pointer is offset by 
ovlq for a range of 1 through 12. This allows the program 
to "fall through" to the. third statement of a row routine 
when the row is greater than 2 and the column is greater 
than 8, For example, should a coordinate defining Row 3 
Column 9 be digitizied, the 4050 system wont branch at |^ 
line 3410 but will continue to line 3430 which returns the 
user to the menu. You could include an error message 
here. 

The foregoing routine could be expanded to include 
prompts, error messages and bells for confirmation of a 
selection. These have been left out so the structure may be 
clearly seen. 

One last important detail. When placing the menu on the 
Tablet, keep it straight. A skewed menu can lead to 
incorrect operation. 



♦The routine to branch to menu mode has not been included in this 
programming tip. 



Since the menu is not a rectangle and the 8-block upper 
right X coordinate is less than the 12-block X coordinate, 
statement 1510 computes the maximum horizontal coor- 
dinate. Statements 1520 and 1520 calculate the individual 
menu block sizes. (If you keep the menu in place on your 
Tablet while creating your drawing over a period of time, 
store the data derived from the above routine so you 
won't have to repeat these steps each time.) 

Once you have entered menu mode*, the following 
routine interprets the coordinates digitized as a menu 
item and branches accordingly. 



End of File Interrupt Logic 

by John Carter 

Tektronix, Inc. 

Santa Clara Annex 
and Pat Kelley 

TEKniques staff a 

ON EOF (0) 

The command ON EOF (0) ... enables the 4050 Graphic 
System to respond to an end of file condition during 



INPUT or READ operations; the following discussion 
traces its response route. 

When the end of file is reached, the system does an 
implied GOSUB from the executing statement to the line 
number specified when ON EOF was last executed. If the 
service routine ends with a RETURN command, control 
is returned to the statement following the READ or 
INPUT statement— not the statement following the ON 
EOF(0). Therefore, when the service routine terminates 
with a RETURN, the statement following the triggering 
action should contain a test to escape the INPUT or 
READ loop. The following code demonstrates the proper 
use of ON EOF (0) in this case. 



106 
119 
129 
136 
149 


INIT 

GOSUB 3999 
-IND 1 
GOSUB 1999 
END 








1990 

1918 
1029 
1939 


INPUT C-33:h$ 
PRINT A$ 
GO TO NOT (A) 
RETURN 


OF 


1999 


2969 
2919 


tt=l 
RETURN 








3909 
3919 
3929 


ON EOF <9> 
RETURN 


THEN 


2999 



If you don't terminate the service routine with a 
R ETU RN, the system is no longer armed to respond to an 
EOF condition. For example, say you executed an ON 
EOF(0) statement, then read file 1. When you reached the 
end of the file, you branched to a service routine which 
printed your file; but the service routine did not end with a 
RETURN. Now, should you read another file, when you 
reach its end, the program will not branch to the service 
routine, but will stop and an EOF message will be printed 
on the graphic screen. 

Also, if you dont end the service routine with a return the 
memory allocated to store the return address (the 
statement following the triggering action) would not be 
cleared. Furthermore, if the system continued execution 
and encountered a RETURN not connected with another 
subroutine it would return execution to the statement 
following the triggering action. 

Therefore, treat your service routines as 
SUBROUTINES and RETURN from them unless you 
plan to end your program immediately afterward. 

Check Your Logic 

The logic which the code in Figure 2 represents has 
trapped more than one user into an infinite loop. In each 
case the user wanted to find a file, branch to a subroutine 
to read it, return to the main program for the next file, etc. 
However, the RETURN in statement 650 is associated 



with the implied EOF GOSUB rather than associated 
with the GOSUB in statement 150. Thus, when statement 
620 is executed and an EOF is detected, the system 
branches (implied GOSUB) to statement 650, which 
returns execution to statement 630. Statement 630 
"prints" the EOF, goes to statement 620, again detects the 
EOF, branches to statement 650 ,.., ad infinitum. 



199 


INIT 










118 


PAGE 










129 


FOR I- 


1 TO 3 








138 


PRINT 


"THIS IS 


FILE M 






148 


PRINT 










158 


GOSUB 


688 








168 


NEXT 1 










165 


PRINT 


"THIS IS 


THE END OF 


THE 


ROUTINE" 


178 


END 










668 


ON EOF 


<9> THEN 638 






618 


FIND I 










628 


INPUT 


«33:X$ 








638 


PRINT 


Xf 








648 


GO TO 


629 








658 


RETURN 











OFF EOF (0) 

Once ON EOF (0) arms the system to respond to the end 
of file condition, you can return it to its default condition 
(i.e., treating the EOF as a fatal error), by issuing an OFF 
EOF(0). However, the OFF EOF(0) must beset afterthe 
RETURN command terminates the service routine. For 
example, inserting the statement: 1005 OFF EOF(0) into 
the code in Figure 1 would have no effect. The RETURN 
at statement 1010 would negate the OFF command. 

An Alternative to ON EOF (0) 

The TYP (0) command may also be used to detect end of 
file.* When you are READing or INPUTtingafile, check 
the next type of data before each string or numeric input. 
If a 1 is returned in the variable, you have reached the end 
of file. The following lines of code demonstrate its use. 



100 INIT 
118 FIND 1 
IZ'O GOSUB 1600 
1-iO lHD 



1000 IF Ti'P(0> = 1 THEN 

1010 INPUT (?33:h$ 

1020 PRINT h* 

1038 GO TO 1008 

1040 RETURN 



1040 



In most cases, the TYPe method of detecting the end of 
file may be more practical than the ON EOF (0) method. 



♦The TYP (0) command will also detect a NEW or LAST file, and 
whether the next item is ASCII, binary numeric or binary string. Refer 
to the (iraphic System Reference Manual for suggestions on using TYP 
(0) in these cases. 



Dashed Line Subroutines 

by Bob Wainwright 
Tektronix, U.K. 
Manchester, England 
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Two subroutines draw dashed lines between any two 
points. In both routines you specify the points, the dash 
length, and the output device. The space between dashes 
on the first routine is the same as the dash length; 
however, you may specify the length of this space in the 
second routine. 

Before making a call to the first subroutine, you 11 need to 
define six variables. These are: 

XI, Yl . The x and y starting coordinates 
X2, Y2 . The x and y ending coordinates 

11 .... The output device (32 = 4050 screen) 

12 .... The dash length (current WINDOW units)* 

Once these variables have been assigned in your program, 
a call to the dashed line subroutine will result in the 
desired dashed line being plotted on the specified device. 



1889 


REM DASHED LINE SUBROUTINE 




1818 


REMUl-DEUICE #> < I'-DASH'SPA LEN> 


1828 


SET DECREES 




1838 


I3-SQR<<Y2-Yl>t2+<X2-X1)T2> 




1848 


I4«ASN(<Y>-YP/I3 MIN 1 MAX 


-l> 


1058 


ROTATE (180-I4>«<X1>X2>*vX2« 


>Xl>*I4 


1869 


14-8 




1878 


C-I2 MIN 13 




1838 


MOVE *ii:xi,yi 




1898 


FOR 13-1 TO INT<I5'I2> 




1108 


RDRAM <?Ui28*l4:C,0 




1118 


I4-N0T(I4^ 




1138 


HEXT 13 




1138 


RORAH ♦Il:U3-INT<l3'!2>tI2i 


* v: 1 3 > 1 2 > , e 


1148 


RETURN 





Before making a call to the second subroutine, you 11 need 
to define the previous six variables— XI, Y1,X2,Y2,1 1,12, 
plus: £~ 

16 ... .The space between dashes (current 
WINDOW units)* 

Once these variables have been assigned, a call to the 
following subroutine will result in the desired dashed line 
and space being plotted on your device. 



2000 REM DASHED LINE SUBROUTINE 




29ia REM t&EUICE»in <DASH LEH-I2* <"SP« LEW-IS"" 




2029 SET DECREES 




2038 I5«SGP^Y2-Yr>T2*fX2-xm2 - < 




2840 U«M$M^'Y2-Y1)/I3 MIN 1 MAX -1> 




2950 ROTATE U88-I4>*fXl>X2) + 'X2«>Xl>*I4 




2069 14x0 




2070 C=!2 BIN 15 




2080 MO'JE 9!1:XI,Y1 




2090 FCR 13=1 TO IHT* IV 12 + 14 > • *2 + < 15- INK 15/ (12* 16 '< > %< 12* \n'> • W 1 




2139 RDRAW •?Il,20+I4:U4»8UC+I4tIS,8 




2110 I4»sQTfI4> 




2120 HEXT 13 




2130 M30E e!i:X2.Y2 




2149 RDPAm <?Ii:fIHT(I5-a2+I6:')t' I2+I6>-I5>ta4-9>-l4*' 12 28 - ' MIN 


15.0 


2158 RETURN 





In addition to the variables mentioned above, three 
scratch variables, 13. 14 and 15 are used in both routines. 



*lf the window is changed from its defauit ratio of 1.3:1.0, i.e., WIN 
0,130,-100.200, and you are using multiple dashed lines, the dash length 
(and space) will vary for each line according to the slope of the line 
determined by the beginning and ending coordinates. 

Ed. Note: A general purpose dashed line algorithm is included in the 
4050 Series Application Library under abstract 51/00-9508/1. | 



Formatting Tabular Output Using 
String Functions 

by Bob Pilkington 
AT&T Long Lines 
Bedminster, NJ 

Do you output tabular reports from your 405 1 to a printer 
or terminal that doesn't contain or recognize tabbing? If 
so, the following routine which takes advantage of the 
4051 string functions may prove useful. 



1.00 


IHIT 










110 


DIM 01(10) 


rQ2a0>,Q.3<'lQ>, 


Q4C10) 






129 


REM ***** 


TEST DATA ****: 








130 


DATA 5,10, 


15,20,25,30,35, 


40,45,50 






140 


DATA 55.60,65.79,75,30,85 


w90,95,lU0 




150 


DATA 105.) 


10,115,120,125, 


130,135, 


140,145, 


50 


160 


DATA 155, 


60, 165,170, 175 


180,135, 


190,195,. 


200 


170 


REM ***** 


FILL COLUMN ARRAYS WITH 


DATA ***** 


180 


READ Ql 










190 


READ Q2 










2^0 


READ Q3 










210 


READ Q4 










390 


REM ***** 


COLUMN ENDING POSITIONS 


***** 




310 


Cl=8 










320 


C2 a 28 










330 


C3=48 










340 


C4*6S 










400 


REM ***** 


BEGIN -FORMATTING/OUTPUT 


ROUTINE 


***** 


410 


PRINT "LENTER 1 FOR 4051 


DISPLAY 


OR 2 FOR 


PRINTER M J 


420 


INPUT D 










430 


IF D<1 OR 


D>2 THEN 410 








440 


2$.-- 










456 


FOR 1-1 TO 72 








460 


Z*«ZfS« - " 










470 


NEXT I 











10 



509 REM ***** HEADING ***** 


510 L**Z$ 




520 PAGE 




530 S**"COLUMN 


1" 


540 C=Cl+2 




550 GOSUB 1000 




560 S*="COLUMN 


?•« 


570 C=C2+2 




539 GOSUB 1000 




5?9 S*=- COLUMN 


3" 


600 C=C3+2 




610 GOSUB 1090 




620 S* = "COLUriN 


3" 


63d C=C4+2 




640 GOSUB 1000 




650 GOSUB 2000 




to8 S=2 




670 GOSUB 3090 




700 REM ***** T 


ABUL wP riGTii ***** 



710 FOR K=l TO 10 
720 IF K'.>6 THEN 750 
730 S=l 

740 GOSUB 3000 
"50 L* = Z* 
768 S* = $TR<QUK).i 
"70 C=C1 
730 GOSUB 1000 
' 7?«3 $$=STRCQ2<K>' 
S00 C=C2 
S10 GOSUB 1000 
820 S* = STRi'Q3iK>i 
830 C=C3 
S40 GOSUB 1000 
850 S$=STP<Q4<K> j 
860 C=C4 
870 GOSUB 1000 

SS0 REM SEND TO DISPLAY OR PRINTER 
3SQ GOSUB 2000 
300 NEXT K 
910 END 

1000 REM ***** FORMATTING SUBROUTINE ***** 
1010 L*=REP<SS,C-LEH<S$>,LEH<S*v, 
1020 RETURN ... 



2000 


REM ***** OUTPUT SUBROUTINE ***** 


^010 


GO TO D OF 2020,2040 


2020 


PRINT LI 


2030 


RETURN 


2040 


PRINT (?40: M ";l*; m j" 


2050 


REM DELAY TIME FOR MY PRINTER 


^'060 


FOR 1=1 TO 50 


2O70 


NEXT I 


2080 


RETURN 


3000 


REM ***** SKIP LINE ROUTINE ***** 


3010 


GO TO D OF 3020,3060 


3020 


FOR 1=1 TO S 


3030 


PRINT 


3040 


NEXT I 


3050 


RETURN 


3060 


FOR 1=1 TO S 


3070 


PRINT C-40:"J" 


3089 


NEXT I 


3899 


RETURN 



The output is formatted according to the desired column 
ending positions, which are defined in statements 310— 
340. Statements 440—470 initialize the string variable in 
which each output line (row) is formatted. The formatting 
subroutine, statement 1010, replaces the appropriate 
blanks in the string variable with, first, the labeling from 
statements 500—640, then with one set o( data from each 
array. Thus, the latter case for our example, requires four 
calls to the subroutine for formatting a row. 



K 
LS 

Q!,Q2,Q3,Q4 

S 

s$ 



= number of rows 

= line buffer string variable 

— 72 characters* 
= arrays of test data 
= number of lines to be skipped 
= argument used to replace LS 
blanks with characters 



*ZS and LS could be dimensioned to hold longer strings for output to a 
132-column line printer. 



Fine Circles or Ellipses 

by S. Schicktanz 
Physics Department 
Technical University of Munich 
Munich, Germany 

The following routine draws very fine circles and may 
easily be modified for ellipses. The routine may be called 
as follows: 



100 REM RESET WINDOW AND VIEWPORT TO DEFAULT SIZE 
118 WINDOW 8, 130.9, 188 
126 VIEWPORT 9, 130,8, 199 

139 REM Move to Center of Circle 

140 INPUT Z1,Z2,R .OR INPUT Z'.ZZR1R2> 
159 MOUE Z1.Z2 

169 REM Define Radius (or half-axes of ellipse) 

178 SCALE 1/Ril/R 'OR SCAuE 1'Ri 1 R2i 

189 GOSUB 1999 

199 &EM Main Progran Continues 

289 RETURN 



Once the array is developed in lines 1000 to 1050, its 
initialization procedure is deleted. Now as many circles 
(or ellipses) may be drawn as desired specifying different 
radii or axes. 



1898 


PEM Drawing Routine 


1919 


SET DEGREES 


1829 


DIM K8<46> 


1838 


FOR K=8 TO 45 


1848 


K8<K+1>-SIN<'2*K> 


1858 


NEXT K 


1868 


REM Delete Initialization 


1078 


DELETE 1810,1978 


1989 


K«MEMORY 


1899 


MOVE 8, 1 


1199 


FOR J=l TO 2 


1118 


FOR K-l TO 4b 


1128 


DRAW K8<K>,K8<47-IO 


1138 


NEXT K 


1148 


FOR K=l TO 46 


1 139 


DRAW K'8<-47-K'>,-K8<.K) 


11 £8 


NEXT K 


1178 


K8 — KB 


1188 


NEXT J 


1199 


RETURN 


1299 


FOR J-l TO 2 


1218 


FOR KM TO 46 


1229 


DRAW K8<>0,K8<47-IO 


1239 


NEXT K 


1248 


FOR K«l TO 46 


1239 


DRAW K9<47-K),-K9<K> 


1269 


NEXT K 


1279 


K8--K8 


1238 


NEXT J 


1298 


RETURN 



The string (row) is then output to the 405 1 graphic display 
or to the printer; we output through address 40. The 
routine is continued until the last data from each array is 
formatted and printed; in this example a total of 10 rows 
are output (statement 710), Statements 620— 640 provide 
for a blank separating line after the fifth output row. The 
kev variables are: 



C1,C2,C3,C4 



= title ending positions 
= column ending positions 



Correction To Programming Tip 

In TEKniques Vol. 3 No. 6 a negative sign and an arithmetic 
operator were inadvertently ommitted in a programming tip. 
On page 15 the formula in "One Reason for a Tape File 
Directory(ies) n should read: 

HARK 1» -INT<-488e/236>*236 MAX 768 



File Size - -INT(-X/256) *256 MAX 768 <£$ 
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Remove 4907 ROM Pack If Not Using 



by Ed Mitchell 
Tektronix, Inc. 
Wilsonville, OR 



The 4050 System automatically goes through an in- 
itialization when turned on, when a program is OLDed, 
or, of course, when an INIT command is issued from the 
keyboard or under program control. If the 4907 ROM 
Pack is in place, the 4050 System expects device to be 
on-line and, as part of the initialization, it will poll device 
0. If the disc unit is not connected to the 4050 System or is 
not turned on, the poii will cause the 4050 System to wait 
for a response, which will never be forthcoming. Jgl) 



c 



Remove the 4907 ROM Pack when you re not using your 
4907 Disc unit. If you don t it could cause your 4050 
system to "hang busy." 



4050 Series Applications Library Program Abstracts 



Order 

Documentation and program listings of each program are 
available J or a nominal charge. Programs will be put on tape for a 
small recording Jee per program plus the charge for the tape 
cartridge. One tape will hold several programs. (The program 
material contained herein is supplied without warranty or 
representation oj any kind. Tektronix, Inc. assumes no repon- 
sibility and shall have no liability, consequential or otherwise, of 
any kind arising] rom the use of this program material or any part 
thereoj.) 



Domestic U.S. Prices: 

Documentation and listings 
Recording Fee 
Tape Cartridge 



$20 per program 
5 per program 
30 per tape 



Contribute 

Contribute one program to the Library and receive three in 
exchange. Send in the membership card from your 4050 Series 
Graphic System Rejerence Manual to get the details. Or call us 
(503)682-3411, ext. 3618. 

Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 

Outside U.S. 

Program contributions or orders outside the U.S. must be 
processed through the local Tektronix sales office or sent to one 
oj the Libraries serving your area. See Library Addresses section. 



( 



ABSTRACT NUMBER: 51/00-8030/0 

Title: GPIB GET Command Trigger 

Author: James R. Matey 

RCA Laboratories 

Princeton, NJ 
Memory Requirement: 32K 
Peripherals: One— HP 3438 A or 

Two— ICS 4880's- 
Statements: 157 
Files: 2 ASCII Programs 

Two programs which trigger devices on the GPIB of the 
405 1 Graphic System by means of the group execute 



trigger command (GET). 

The first program is used with an HP 3438 A, the second 
with two ICS 4880 Bus Couplers. The device(s) must be 
connected via the appropriate cables to the 4051, and in 
the case of the ICS 4880's must also be connected properly 
to an appropriate BCD output device. The details of the 
connections are presented in the manufacturers' instruc- 
tions for these devices. £ 

These programs are used to automate laboratory ex- 
periments allowing the 4051 to read the results of a 
measurement. 
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ABSTRACT NUMBER: 51/07-1202/0 

Title: Manning's Equation Depth Flow 

Author: Richard L. Laramie 

CDM/ Resource Analysis 

Waltham, MA 
Memory Requirement: 8K 
Peripherals: 4907 File Manager 

Optional-4631 Hard Copy Unit 
Statements: 88 

The program uses Mannings equation to calculate a 
depth-flow relationship for a given stream reach. Re- 
quired input includes slope, Mannings "n", and offset- 
elevation pairs. Output is a table of water surface 
elevation area, wetted perimeter, hydraulic radius, AR 23 , 
and flow for each depth. 

The program is useful in establishing a depth-flow 
relationship for an open channel. 



PPOGRAM TO COHPUTE THE NORMAL ^LOW-DEPTH REL 


<TI0NSHIP 




FOR AN 


IRREGULAR 


CROSS-SECT 


I0H 








ENTER - 


Dl.St.N9 


- WHERE: 










01 


» OUTPUT 


TABLE OEPTI" 


INCREMENT 






SI 


* STREAM 


REhCH SLOPE 










N9 


= STREAM 


PEACH MANM1HGS H 








. 0005 














ENTER 


- ^SECTION 
-79 


OFFSET. ELE 


u PhIRS - 


X. ; > ENTER E.E TO 


END; 


140 














-58 












i:e 














3. . . . 


-19 












[16 














■*.... 















L 5T... 


10 












[c6 


20 












ne 


50 












132 
















150 












149 














^. . . . 

E 


E 












DEPTH 


ELEU 


AREA 


WPER 


HYD-P 


AR2/3 





8.89 


122.8 


0.0 


8.9 


9.0 


9.9 


9.9 


9. 75 


122.8 


1.4 


4.9 


8.3 


0.7 


9.7 


1.59 


123.5 


5.6 


8. 1 


0.7 


4.4 


4.2 


2.25 


124.3 


12.7 


12.1 


1.0 


13.0 


12.4 


3.09 


125.9 


22.5 


16.2 


1.4 


29.1 


26.7 


3.rs 


123,8 


35.2 


29.2 


1.7 


50.9 


49.4 


4.58 


126.5 


51.6 


27.9 


1.8 


77.6 


73.9 


5.25 


127.3 


74.8 


37.5 


2.0 


118.5 


112.8 


6.89 


128.0 


105.9 


47.9 


2.2 


179.4 


178.8 


s.75 


128.8 


142.3 


56. 6 


2. 5 


263.1 


250.5 


7.59 


129.5 


166. 6 


66. 1 


2.8 


372.6 


354.7 


8.25 


139.3 


238.0 


76.8 


3.1 


506.1 


481.7 


9.00 


131.9 


298.5 


89.8 


3.3 


665.2 


633.2 


5.75 


131.8 


368.5 


102.7 


3.6 


864.0 


822.4 


19.59 


132.5 


447.8 


114.4 


3.9 


1112.5 


1059.0 


11.25 


133.3 


535.3 


125.5 


4.3 


1408.5 


1349.8 


12.99 


134.9 


631.0 


136.6 


4.6 


1751.1 


16S6.S 


12.75 


134.8 


734.8 


147.7 


5.8 


2142.8 


2039.8 


13.59 


135.5 


e46.8 


158.8 


5.3 


2586.5 


2462.2 


14.25 


136.3 


967.0 


169.8 


5.7 


3084.8 


2936.5 


15.09 


137.0 


1095.3 


180.9 


6.1 


3648. t 


3465.1 


15.75 


137.8 


1231.7 


192.0 


6.4 


4255.0 


4850.4 


16.50 


138.5 


1376.3 


203.1 


6.8 


4931.8 


4694.7 


17.25 


139.3 


1529. 1 


214.2 


7.1 


5673.1 


5400.4 


18.09 


148.0 


1690.0 


225.3 


7.5 


6481.1 
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ABSTRACT NUMBER: 51/00-6111/0 

Title: QUANTEX DS-12 Interface 

Author: John Carter 

Tektronix, Inc. 

Santa Clara Field Office 
Memory Requirement: 32K 
Peripherals: QUANTEX DS-12 Image Processor 
Statements: 266 
Files: I ASCII Program 

The program provides an interface between the 4050 



Series Graphic System and a QUANTEX DS-12 Image 
Processor. 

The User-Definable Keys are used to perform the 
following functions: 

— Retrieve one horizontal line 

— Retrieve one vertical line 

— Send one horizontal line 

— Send one vertical line 

— Plot one horizontal line 

— Write a cross 

— Store a field on tape 

— Send a field from tape 

— Restore X data 



FUNCTION KEY LAYOUT: 



11 12 13 
1 1 I 1 1= 



14 15 

] i 1 czz 



t 

lb 



17 IS 
I 1 CZZ 



28 

1 1 

19 



HON- SHIFTED KEY 

1 - MENU 

2 - RETRIEVE ONE LINE »H> 

3 - RETRIEVE ONE LINE an 

4 - UPITE A CROSS 

5 - STORE A FIELD ON TAPE 



8 - PLOT ONE LINE i'H; 

9 - 
10 - RESTORE X DATA 

PRESS THE DESIRED FUNCTION KEY 



SHIFTED KEY 

11 - INITIALIZE 

12 - SEND 0HE LINE *H» 

13 - SEND ONE LINE an 

14 - 

15 - SEND A FIELD FROM TAPE 

16 - 

17 - 
IS - 
19 - 
26 - 



WHITE (2ZS-> 




ABSTRACT NUMBER: 51/00-6006/0 

Title: Baby Announcement Card 

Author: Allen G. Hahn 

Hesston Corporation 

Hesston, KS 
Memory Requirement: 24K 
Peripherals: 463 1 Hard Copy Unit 
Statements: 37 1 
Files: 1 ASCII Program 

The program draws a Baby Announcement Card on the 
4050 Series Graphic System screen. The program is self- 
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contained and produces a card, when folded, that is 3 '/«" 
X 4 ] A'\ by folding the paper into fourths. Required input 
is the baby's name and birth statistics. 









3AO [ jQ S% O [ 








JOj P9UUOJ60JQ St 

sfios ja;nauoD am 


He *ad« *h« aun«*r breeze so mld-- 
The noon arid stars abow«, 
But when H« *ad« a little child. 
Then Cod created lo«e. /> — s. 








►hREH »ehee hahn 

8 lb 6 oz. ZZ in 

«3.99 M- 5b cm'' 

4:46 pm, flarch I. 1-37*8 

Bethel Deaconess HosDital 

Newton. Kansas 

hI len and Hare la Hahn 






Conocntd by TewtroTu* 4031 


t B\9 Sister Janel le 













*t*ADD 


UOLUME 0PTI0N*t* 






ENTER UOLUME ID <£ 8 CHARACTERS'- 


BEFORE 


WHICH 


THE NEW UOLUME WILL BE INSERTED: 


CdQ\ 




/ENTER 


TYPE (6-CHSSETTE, 1«REEL, 


2-DISK) 


: e 


.'ENTER 


USE: 






e * 


PRODUCTION 






1 * 


CANNED PROGRAM 






2 * 


BACKUP 






3 « 


SCRATCH 






4 a 


RESIDENT 






5 ■ 


TESTING 






€ * 


DATA 






7 * 


ANALOGUES-DIGITAL 






8 » 


HISTORICAL 






9 » 


PLOTTING 






VSELECT USE: 1 






>ENTER 


STATUS <8«AUAILABLE, 1 -ASSIGNED): 





>ENTER 


UOLUME ID <i 8 CHARACTERS) 


: C982 




>ENTER 


NUMBER OF FILES <i 999): 1 







ABSTRACT NUMBER: 51/07-8031/0 



ABSTRACT NUMBER: 51/00-6112/0 

Title: Mass Storage Management System 

Author: Captain S.K. Sanford 

Aberdeen Proving Ground, MD 
Memory Requirement: 32K 
Peripherals: 4924 Digital Cartridge Tape Drive 

Optional-4631 Hard Copy Unit 
Statements: 680 
Files: 1 ASCII Program 



Title: File Identifier 

Author: Nick Ogbourne 

Comalco Aluminium Ltd. 

Bell Bay 

George Town. Tasmania 
Memory Requirement: 8K 
Peripherals: 4907 File Manager 
Statements: 1 12 
Files: 1 ASCII Program 



The program is designed to monitor the use of mass 
storage media, specifically cassettes, discs and reel tapes. 



The program is a subroutine that compiles a file identifier 
which will comply with the 4907 File Manager rules. 



Reports may be generated interactively based on volume 
ID, media type, availability status, applications, or 
assigned user. The date of assignment and number of 
assignments is also recorded. 



The program prompts the user to select libraries to the 
selected level, up to level 4, including SYSLIB or 
SCRATCH LIB. Passwords for any or all libraries may be 
added. 



The program is tutorial. 



***MASS STORAGE MANAGEMENT SYSTEMtt* 



OPTIONS: 



1 
11 



12 
3 

13 
4 

14 
3 

13 



17 
8 
18 
9 

19 
18 
28 



FUNCTION 

DISPLAY OPTIONS 

UPDATE EXISTING CATALOGUE ENTRY 

ADD UOLUME * 

DELETE UOLUME 

DISPLAY CATALOGUE BY UOLUME ID <SH0RT> 

DISPLAY CATALOGUE BY UOLUME ID (LONG) 

DISPLAY CATALOGUE BY UOLUME TYPE 'SHORT V 

DISPLAY CATALOGUE BY UOLUME TYPE (LONG) 

DISPLAY CATALOGUE BY UOLUME STATUS (SHORT) 

DISPLAY CATALOGUE BY UOLUME STATUS <L0NG> 

DISPLAY CATALOGUE BY UOLUME USE (SHORT) 

DISPLAY CATALOGUE BY UOLUME USE (L0HG*> 

DISPLAY CATALOGUE BY ASSIGNED USER (SHORT) 

DISPLAY CATALOGUE BY ASSIGNED USER <L0N6> 

DISPLAY ENTIRE CATALOGUE vSHORT) 

DISPLAY ENTIRE CATALOGUE (LONG) 

RECOPY SCRATCH FILE ONTO MASTER (ERROR RECOUERY"* 

DISPLAY SCRATCH COPY (FILE IMAGE) 

HARD-COPY FULL PAGE AND ERASE 

WAIT AT FULL PAGE 



>SELECT USER DtFINABLE KEY< 



Following library selection, file selection on the same 
basis occurs, plus the selection of a file extension. 

The valid file name is then returned in ES and a flat, EO, 
assumes a value of if the file does not currently exist and 
I if it does currently exist. 



Level I 1 1 ibrary.Maxiwun 10 character?. 

Press ;RETURN> for SCRATCHLIB, enter N *' for SYSLIB. 

Enter nane for USERLIB. 

USERLIB 

Password. Maxinuw 10 characters. Press <RETUPN> if not required. 

LI BRASS 

Le^ei • 2 1 ibrary. MaxiMurr 10 characters. 

Enter * '* to select file. LEUEL2 

Password. Haxinuri Id characters. Press ^RETURN) if not required. 

Le»'el * 3 library, Max i.mum 10 characters. 

Enter '•• * to sel ec t file. •' 

File nane. » Ma*iNun 19 characters.) ■ FILENAME 

Password. MaviMUM 18 charac ters. Press \RETURN) if not required. 

FILEPASS 

Ex tension, MaxiMUH 4 charac ters. Press <RETURN> if not required. 

E.<TE 

FILE « tUSERLIB:LIBPASS/LEUEL2-'FILENAME:FILEPASS.EXTE FLAG « 8 
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ABSTRACT NUMBER: 51/00-6501/0 

Title: Recreational Plots #1 

Memory Requirement: 8K—24K 
Peripherals: None 
Files: 24 ASCII Program 
I Binary Data 

*COST: $99 on tape only 

Twenty-three 4050 Series Graphic plots help the new- 
comer to computers interact with the friendly 4050 Series 
Systems. But the diversions are geared for the most 
experienced computer operator as well. Some of the 
programs test your logic or math skills, others your 
dexterity on the User-Definable Keys; some simply 
display the fine resolution of your graphic screen. 

Included in this first Recreational Plot tape are: 



Shoot 

Lunar Lander 

Qubic 

Weather War 

Othello 

Golf Game #1 

Golf Game #2 

Wumpus 

Hangman 

Acey Ducey 

Ping Pong 

Tic Tac Toe for 2 



Computer Tic Tac Toe 
I.Q. 

Pinball 

Mugwump 

Blackjack 

Hamurabi 

Biorhythm 

Land Mines 

Computer Art 

Polygons 

Mastermind 



*The cost includes the documentation, recording fee and tape cartridge. 
However, to keep the cost down, no listings are included with the 
documentation; the user may easily run off his own, however. No other 
programs may be included on the tape. 



WEATHER WAP 



PmT "J TUPM 

o*. dahage 

H-: EilEMY DESTROYED 
u.C. OR H" 

I 

LIGHTNING' 
HI'JC' 13 -51MPH 
INPUT ELECTRIC Fl/LC' 




DEALER'S TOTAL: 18 



T — 1 

0! 

51 


5 1 


9 



*L*-t? 1 

h : :• 



9 



$!■ 



•-E-: I j'BE T : 

I ill i tl'i 

i 5-.-*HC£: i bala 



!BE*: 

j BhLhmcE: 
! »?8 



ftl 



PLH''ER 4 


1*1 


H I T? 


L-Li 


BE*: 
115 
BAlANCE: 

$35 







i 



DOES E"EP!f'80C'Y WANT '0 d^AY AGAIN" 



PLAYER 5 
H I T*> 



BET: 
133 
BALANCE: 



3 



> 



Ms. Anyone 

Born on Jan. 1, 1948. 

Bio-chart for the nonth of Nov. 1979. 

You have been on this jood earth (or 11627 days. 

Computed by the TEKTRONIX 4050 Graphic Conputxng System. 





— — — — —————.— — — — — — — 



123456789 19 1112 1314 15 16 17 1819292122232425262728 29 38 
p»Phys:ca1 s»Sensi tivity i-lntellectual 
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Tektronix 

COMMOTED TO EXCELLENCE 

TEKTRONIX, INC. 
Information Display Group 
Applications Library 
Group 451 
P.O. Box 500 
Beaverton, Oregon 97005 



~Li^5tfr 'n 



U 






ADDRESS CORRECTION REQUESTED 



( 



4050 Series Applications Libraries 




Africa, Europe, Middle East 


Canada 


Japan 


Contact local sales office 


4050 Series Applications Library 


4050 Series Applications Library 




Tektronix Canada Ltd. 


Sony/ Tektronix Corporation 


Australia 


P.O. Box 6500 


9-31 Kitashinagawa-5 


4050 Series Applications Library 


Barrie, Ontario 


Tokyo 141 Japan 


Tektronix Australia Pty. Limited 


Canada L4M 4V3 




Sydney 




United States 


80 Waterloo Road 
North Ryde, N.S.W. 2113 


Caribbean, Latin America 
and Far East (excl. Japan) 


4050 Series Applications Library 
Tektronix, Inc. 




IDD Group 


Group 451 




Export Marketing 


P.O. Box 500 




Tektronix, Inc. 


Beaverton, Oregon 97077 




P.O. Box 500 






Beaverton, Oregon 97077 






U.S.A. 








